#include <iostream>
#include <string>
#include <vector>
#include <sstream>
#include <cstdio>
#include <cstdlib>
#include <sys/types.h>
#include <sys/wait.h>
#include <unistd.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <fcntl.h>

using namespace std;
// 实现简易版shell

void split(string buffer, vector<string> *argv)
{
    stringstream ss(buffer);
    string tmp;
    while (ss >> tmp)
    {
        argv->push_back(tmp);
    }
}

enum redir
{
    REDIR_INPUT = 0,
    REDIR_OUTPUT,
    REDIR_APPEND,
    REDIR_NONE
};

// 判断是否需要重定向，重定向的类型
int checkDir(string buffer, redir *redirType)
{
    size_t pos = buffer.find(">>");
    if (pos != string::npos)
    {
        *redirType = REDIR_APPEND;
        return pos;
    }
    pos = buffer.find(">");
    if (pos != string::npos)
    {
        *redirType = REDIR_OUTPUT;
        return pos;
    }
    pos = buffer.find("<");
    if (pos != string::npos)
    {
        *redirType = REDIR_INPUT;
        return pos;
    }
    *redirType = REDIR_NONE;
    return -1;
}

#define NUM 32

int main()
{
    // 父进程一直运行，并获取用户输入
    while (true)
    {
        // 1. 获取命令行信息
        char buffer[1024];
        cout << "[myshell@VM]$ ";
        fflush(stdout);
        ssize_t s = read(0, buffer, sizeof(buffer) - 1);
        if (s > 0)
        {
            buffer[s] = 0;
        }
        else
        {
            perror("read");
            continue;
        }

        // 判断是否需要重定向
        redir redirType;
        int pos = checkDir(buffer, &redirType);

        // 2. 解析命令行信息，获取命令名称和运行参数
        vector<string> argv;
        split(buffer, &argv);
        if (argv.size() == 0)
        {
            continue;
        }

        // 2.1 判断是否为内建命令
        if (argv[0] == "cd")
        {
            // chdir(const char* path)
            // 改变当前工作路径
            // 0. 获取当前工作路径
            char path[1024];
            getcwd(path, sizeof(path));
            cout << "path: " << path << endl;
            // 1. 切换路径
            chdir(argv[1].c_str());
            // 2. 获取当前工作路径
            getcwd(path, sizeof(path));
            cout << "path: " << path << endl;
            continue;
        }
        else if (argv[0] == "exit")
        {
            // 退出shell
            exit(0);
        }
        // 2.2 添加环境变量 - 内建命令
        else if (argv[0] == "export")
        {
            // 1. 获取环境变量

            // 2. 添加环境变量
            // 3. 打印环境变量
            continue;
        }

        // 3. 创建子进程，进行程序替换
        pid_t pid = fork();
        if (pid == 0)
        {
            // cout<<"child pid:"<<getpid()<<endl;
            // exit(1);

            // 子进程
            // 4. 进行程序替换

            // 重定向
            if (redirType == REDIR_INPUT)
            {
                // <
                // 1. 打开文件
                string filename;
                for (int i = 0; i < argv.size(); i++)
                {
                    if (argv[i] == "<")
                    {
                        filename = argv[i + 1];
                        break;
                    }
                }

                int fd = open(filename.c_str(), O_RDONLY);
                if (fd < 0)
                {
                    perror("open");
                    exit(1);
                }
                // 2. 重定向
                dup2(fd, 0);
            }
            else if (redirType == REDIR_OUTPUT)
            {
                // >
                // 1. 打开文件
                string filename;
                for (int i = 0; i < argv.size(); i++)
                {
                    if (argv[i] == ">")
                    {
                        filename = argv[i + 1];
                        break;
                    }
                }

                cout<<filename<<endl;

                int fd = open(filename.c_str(), O_WRONLY | O_CREAT | O_TRUNC, 0664);
                if (fd < 0)
                {
                    perror("open");
                    exit(1);
                }
                // 2. 重定向
                dup2(fd, 1);
            }
            else if (redirType == REDIR_APPEND)
            {
                // >>
                // 1. 打开文件
                string filename;
                for (int i = 0; i < argv.size(); i++)
                {
                    if (argv[i] == ">>")
                    {
                        filename = argv[i + 1];
                        break;
                    }
                }
                int fd = open(filename.c_str(), O_WRONLY | O_CREAT | O_APPEND, 0664);
                if (fd < 0)
                {
                    perror("open");
                    exit(1);
                }
                // 2. 重定向
                dup2(fd, 1);
            }
            char *myargv[NUM];
            int i = 0;
            for (; i < argv.size(); i++)
            {
                myargv[i] = (char *)argv[i].c_str();
            }
            myargv[i] = NULL;
            execvp(myargv[0], myargv);
            exit(1);
        }
        // 父进程
        // 5. 进程等待
        // cout<<"father wait child pid:"<<pid<<endl;
        int status = 0;
        int ret = waitpid(pid, &status, 0);
        if (ret < 0)
        {
            perror("waitpid");
            continue;
        }
        else if (ret > 0)
        {
            // 6. 打印子进程退出状态信息
            cout << "exit code: " << WEXITSTATUS(status) << " sig: " << (status & 0x7F) << endl;
        }
    }

    return 0;
}